module Model where
score :: [Double] -> [Double]
score input =
    [9.700311953536998 + input !! 0 * (-0.4128360473754751) + input !! 1 * 0.9680426131053453 + input !! 2 * (-2.498310603183548) + input !! 3 * (-1.0723230787022542), 2.1575759475871163 + input !! 0 * 0.5400806228605453 + input !! 1 * (-0.3245383349519669) + input !! 2 * (-0.2034493200950831) + input !! 3 * (-0.9338183426196143), (-11.857887901124615) + input !! 0 * (-0.12724457548509432) + input !! 1 * (-0.6435042781533917) + input !! 2 * 2.7017599232786216 + input !! 3 * 2.006141421321863]
